|
Hallo,
ich habe eine Frage. Ich bin VBA Anfänger. Ist es möglich ein Makro zu schreiben, dass automatisch alle Werte in der PIV als % der Gesamtsumme angezeigt werden. Die größe der PIV passt sich dynamisch an.
Die PIV schaut so aus
Nr. Bezeichnung Spalte1 Spalte2 Spalte3 Spalte 4....
01 test1 20 30 10 40
02 test2 30 40 60 20
03 test3 50 30 30 40
usw.
Standardgemäß werden die Werte als Summe dargestellt.
Ich möchte nun ein Makro, dass die Spalte 1 bis n nacheinander durchläuft und die Werte in den Spalten als % der Gesamtsumme darstellt.
Wenn ich es mit dem Makro-Rekorder aufzeichne, schaut es wie folgt aus. Das Problem ist nur, dass sich die Tabelle vergrößern kann. D.h. ich möchte automatisch bis zur letzten befüllten Spalte der PIV diese Aufgabe ausführen.
Range("C3").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Summe von Spalte1")
.Calculation = xlPercentOfTotal
.NumberFormat = "0,00%"
Range("D3").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Summe von Spalte2")
.Calculation = xlPercentOfTotal
.NumberFormat = "0,00%"
usw.
Vielen Dank für eure Hilfe.
Lena
|